program New_array;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
arr = array [0..99] of integer;

var
a:^arr;
i:integer;
begin
new(a);
a^[0]:=1;
for i:=1 to 99 do
a^[i]:=a^[i-1]+1;
for i:=0 to 99 do
writeln(a^[i]);
dispose(a);
readln;
end.

 